' Delete
' This program lets you delete a file on disk.

CLS

PRINT "This program deletes a text file from disk."
INPUT "Press Return to find the file you want to delete", dummy$

filename$ = FILES$(1, "TEXT")

CLS

PRINT "File:  "; filename$
INPUT "Are you sure you want to delete this file (Y/N)?  ", reply$

PRINT
IF UCASE$(reply$) = "Y" THEN
    KILL filename$
    PRINT filename$; " has been deleted."
ELSE
    PRINT filename$; " has not been deleted."
END IF

PRINT
INPUT "Press Return to continue", dummy$
